﻿Public Class Utilities

    Public Sub Mensaje(ByVal zMensaje As String)
        MsgBox(zMensaje, MsgBoxStyle.Information, "Mensaje")
    End Sub
    Public Sub ErrorMessage(ByVal zMensaje As String)
        MsgBox(zMensaje, MsgBoxStyle.Critical, "Error")
    End Sub
    Public Function Pregunta(ByVal zPregunta As String) As Boolean
        If MsgBox(zPregunta, [MsgBoxStyle].YesNo, "Pregunta") = MsgBoxResult.Yes Then
            Return True
        Else
            Return False
        End If
    End Function
End Class
